home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sacred & Secular
/
Sacred and Secular.iso
/
pc
/
movies
/
shared.dir
/
05036_Script_5036
< prev
next >
Wrap
Text File
|
1996-04-03
|
703b
|
41 lines
on startMovie
set the keyDownScript = "checkKeys"
end
on checkKeys
--
--
-- Check for quit, and volume keys
--
if the machineType = 256 then
set quitKey = the controlDown and the key = "q"
else
set quitKey = the commandDown and the key = "q"
end if
if quitKey then
doQuit
exit
end if
if the key <= "9" and the key >= "0" then
doSetVolume(charToNum(the key) - charToNum("0"))
exit
end if
--put ">>>checkKeys" && the key
end
on doSetVolume n
global gVolume
set volList = [0, 7, 15, 31, 45, 63, 91, 127, 181, 255]
set gVolume = getAt(volList, (n+1))
setQTVol(gVolume)
end